object Form1: TForm1
  Left = 192
  Top = 114
  Width = 870
  Height = 640
  Caption = 'Form1'
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object RzSplitter1: TRzSplitter
    Left = 0
    Top = 0
    Width = 862
    Height = 606
    Orientation = orVertical
    Position = 230
    Percent = 38
    Align = alClient
    TabOrder = 0
    BarSize = (
      0
      230
      862
      234)
    UpperLeftControls = (
      Tool_1)
    LowerRightControls = (
      Memo_1)
    object Tool_1: TRzToolbar
      Left = 0
      Top = 0
      Width = 862
      Height = 29
      ButtonWidth = 60
      ShowButtonCaptions = True
      TextOptions = ttoCustom
      BorderInner = fsNone
      BorderOuter = fsGroove
      BorderSides = [sdTop]
      BorderWidth = 0
      TabOrder = 0
      VisualStyle = vsClassic
      ToolbarControls = (
        Btnx_1
        Btnx_2
        Btnx_4
        Btnx_3)
      object Btnx_1: TRzToolButton
        Left = 4
        Top = 2
        Width = 138
        Caption = 'callscriptfunction'
        OnClick = Btnx_1Click
      end
      object Btnx_2: TRzToolButton
        Left = 142
        Top = 2
        Width = 173
        Caption = 'callscriptfunctionparam'
        OnClick = Btnx_2Click
      end
      object Btnx_3: TRzToolButton
        Left = 467
        Top = 2
        Width = 75
        Caption = 'terminate'
        OnClick = Btnx_3Click
      end
      object Btnx_4: TRzToolButton
        Left = 315
        Top = 2
        Width = 152
        Caption = 'call.script.testplus'
        OnClick = Btnx_4Click
      end
    end
    object Memo_1: TRzMemo
      Left = 0
      Top = 0
      Width = 862
      Height = 372
      Align = alClient
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'Courier New'
      Font.Style = []
      Lines.Strings = (
        'procedure showmsg;'
        'begin'
        '  showmessage('#39'true'#39');'
        '  showmessage(formatdatetime('#39'YYYY-MM-DD'#39',now));'
        'end;'
        ''
        'procedure showparam1;'
        'begin'
        '  showmessage(param1);'
        'end;'
        ''
        'function testplus:extended;'
        'begin'
        '   result:=[1]+[2];'
        'end;'
        ''
        'function showparam2:extended;'
        'begin'
        '  result:=0;'
        'end;'
        ''
        ''
        'begin'
        '   '
        'end.')
      ParentFont = False
      TabOrder = 0
      FrameVisible = True
      FramingPreference = fpCustomFraming
    end
  end
  object fsPascal1: TfsPascal
    Left = 707
    Top = 42
  end
  object fsScript1: TfsScript
    SyntaxType = 'PascalScript'
    OnGetVarValue = fsScript1GetVarValue
    Left = 528
    Top = 87
  end
end
